1 Imports System.Data.SqlClient
2 Public Class frmMain
3
4 Private Sub ClassToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClassToolStripMenuItem.Click
5 frmClass.lblUser.Text = lblUser.Text
6 frmClass.Reset()
7 frmClass.ShowDialog()
8 End Sub
9
10 Private Sub SectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SectionToolStripMenuItem.Click
11 frmSection.lblUser.Text = lblUser.Text
12 frmSection.Reset()
13 frmSection.ShowDialog()
14 End Sub
15
16 Private Sub DepartmentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DepartmentToolStripMenuItem.Click
17 frmDepartment.lblUser.Text = lblUser.Text
18 frmDepartment.Reset()
19 frmDepartment.ShowDialog()
20 End Sub
21
22 Private Sub FeeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FeeToolStripMenuItem.Click
23 frmFee.lblUser.Text = lblUser.Text
24 frmFee.Reset()
25 frmFee.ShowDialog()
26 End Sub
27
28 Private Sub FeeInfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FeeInfoToolStripMenuItem.Click
29 frmClassFeeInfo.lblUser.Text = lblUser.Text
30 frmClassFeeInfo.Reset()
31 frmClassFeeInfo.ShowDialog()
32 End Sub
33
34 Private Sub LocationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LocationToolStripMenuItem.Click
35 frmLocation.lblUser.Text = lblUser.Text
36 frmLocation.Reset()
37 frmLocation.ShowDialog()
38 End Sub
39
40 Private Sub DocumentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DocumentToolStripMenuItem.Click
41 frmDocument.lblUser.Text = lblUser.Text
42 frmDocument.Reset()
43 frmDocument.ShowDialog()
44 End Sub
45
46 Private Sub HostelInfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HostelInfoToolStripMenuItem.Click
47 frmhostelInfo.lblUser.Text = lblUser.Text
48 frmhostelInfo.Reset()
49 frmhostelInfo.ShowDialog()
50 End Sub
51
52 Private Sub SchoolInfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchoolInfoToolStripMenuItem.Click
53 frmSchoolInfo.lblUser.Text = lblUser.Text
54 frmSchoolInfo.Reset()
55 frmSchoolInfo.ShowDialog()
56 End Sub
57
58
59 Private Sub CalculatorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculatorToolStripMenuItem.Click
60 System.Diagnostics.Process.Start("Calc.exe")
61 End Sub
62
63 Private Sub NotepadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotepadToolStripMenuItem.Click
64 System.Diagnostics.Process.Start("Notepad.exe")
65 End Sub
66
67 Private Sub WordPadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WordPadToolStripMenuItem.Click
68 System.Diagnostics.Process.Start("WordPad.exe")
69 End Sub
70
71 Private Sub MSWordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MSWordToolStripMenuItem.Click
72 System.Diagnostics.Process.Start("WinWord.exe")
73 End Sub
74
75 Private Sub MSPaintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MSPaintToolStripMenuItem.Click
76 System.Diagnostics.Process.Start("MSPaint.exe")
77 End Sub
78
79 Private Sub TaskManagerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TaskManagerToolStripMenuItem.Click
80 System.Diagnostics.Process.Start("TaskMgr.exe")
81 End Sub
82
83 Private Sub SystemInfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SystemInfoToolStripMenuItem.Click
84 frmSystemInfo.Show()
85 End Sub
86
87 Private Sub BusFeeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BusFeeToolStripMenuItem.Click
88 frmInstallment_Bus.lblUser.Text = lblUser.Text
89 frmInstallment_Bus.Reset()
90 frmInstallment_Bus.ShowDialog()
91 End Sub
92
93 Private Sub HostelFeeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HostelFeeToolStripMenuItem.Click
94 frmInstallment_Hostel.lblUser.Text = lblUser.Text
95 frmInstallment_Hostel.Reset()
96 frmInstallment_Hostel.ShowDialog()
97 End Sub
98
99
100 Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
101 frmAbout.ShowDialog()
102 End Sub
103
104 Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
105 lblDateTime.Text = Now
106 End Sub
107
108 Private Sub SchoolTypeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
109 frmSchoolType.lblUser.Text = lblUser.Text
110 frmSchoolType.Reset()
111 frmSchoolType.ShowDialog()
112 End Sub
113
114 Private Sub ClassTypeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ClassTypeToolStripMenuItem.Click
115 frmClassType.lblUser.Text = lblUser.Text
116 frmClassType.Reset()
117 frmClassType.ShowDialog()
118 End Sub
119
120 Private Sub RegistrationToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RegistrationToolStripMenuItem.Click
121 frmRegistration.lblUser.Text = lblUser.Text
122 frmRegistration.Reset()
123 frmRegistration.ShowDialog()
124 End Sub
125
126 Private Sub LogsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles LogsToolStripMenuItem.Click
127 frmLogs.Reset()
128 frmLogs.lblUser.Text = lblUser.Text
129 frmLogs.ShowDialog()
130 End Sub
131
132 Private Sub BackupToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BackupToolStripMenuItem.Click
133 Backup()
134 End Sub
135 Sub Backup()
136 Try
137 Cursor = Cursors.WaitCursor
138 Timer2.Enabled = True
139 If (Not System.IO.Directory.Exists("C:\DBBackup")) Then
140 System.IO.Directory.CreateDirectory("C:\DBBackup")
141 End If
142 Dim destdir As String = "C:\DBBackup\ERPS_DB " & DateTime.Now.ToString("dd-MM-yyyy_HH-mm-ss") & ".bak"
143 con = New SqlConnection(cs)
144 con.Open()
145 Dim cb As String = "backup database [" & System.Windows.Forms.Application.StartupPath & "\ERPS_DB.mdf] to disk='" & destdir & "'with init,stats=10"
146 cmd = New SqlCommand(cb)
147 cmd.Connection = con
148 cmd.ExecuteReader()
149 con.Close()
150 Dim st As String = "Sucessfully performed the backup"
151 LogFunc(lblUser.Text, st)
152 MessageBox.Show("Successfully performed", "Database Backup", MessageBoxButtons.OK, MessageBoxIcon.Information)
153 'GetData()
154 Catch ex As Exception
155 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
156 End Try
157 End Sub
158 Private Sub RestoreToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RestoreToolStripMenuItem.Click
159 Try
160 With OpenFileDialog1
161 .Filter = ("DB Backup File|*.bak;")
162 .FilterIndex = 4
163 End With
164 'Clear the file name
165 OpenFileDialog1.FileName = ""
166
167 If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
168 Cursor = Cursors.WaitCursor
169 Timer2.Enabled = True
170 SqlConnection.ClearAllPools()
171 con = New SqlConnection(cs)
172 con.Open()
173 Dim cb As String = "USE Master ALTER DATABASE [" & System.Windows.Forms.Application.StartupPath & "\ERPS_DB.mdf] SET Single_User WITH Rollback Immediate Restore database [" & System.Windows.Forms.Application.StartupPath & "\ERPS_DB.mdf] FROM disk='" & OpenFileDialog1.FileName & "' WITH REPLACE ALTER DATABASE [" & System.Windows.Forms.Application.StartupPath & "\ERPS_DB.mdf] SET Multi_User "
174 cmd = New SqlCommand(cb)
175 cmd.Connection = con
176 cmd.ExecuteReader()
177 Dim st As String = "Sucessfully performed the restore"
178 LogFunc(lblUser.Text, st)
179 MessageBox.Show("Successfully performed", "Database Restore", MessageBoxButtons.OK, MessageBoxIcon.Information)
180 'GetData()
181 End If
182 Catch ex As Exception
183 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
184 End Try
185 End Sub
186
187 Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
188 Cursor = Cursors.Default
189 Timer2.Enabled = False
190 End Sub
191
192 Private Sub LogoutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LogoutToolStripMenuItem.Click
193 Try
194 If MessageBox.Show("Do you really want to logout from application?", "Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
195 If MessageBox.Show("Do you want backup database before logout?", "Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
196 Backup()
197 LogOut()
198 Else
199 LogOut()
200 End If
201 End If
202 Catch ex As Exception
203 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
204 End Try
205 End Sub
206 Sub LogOut()
207 Dim st As String = "Successfully logged out"
208 LogFunc(lblUser.Text, st)
209 Me.Hide()
210 frmLogin.Show()
211 frmLogin.UserID.Text = ""
212 frmLogin.Password.Text = ""
213 frmLogin.UserID.Focus()
214 End Sub
215
216 Private Sub ProfileEntryToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ProfileEntryToolStripMenuItem.Click
217 frmStudent.lblUser.Text = lblUser.Text
218 frmStudent.Reset()
219 frmStudent.ShowDialog()
220 End Sub
221
222 Private Sub BusHolderToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BusHolderToolStripMenuItem.Click
223 frmBusCardHolder_Student.lblUser.Text = lblUser.Text
224 frmBusCardHolder_Student.Reset()
225 frmBusCardHolder_Student.ShowDialog()
226 End Sub
227
228 Private Sub HostelerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HostelerToolStripMenuItem.Click
229 frmHosteler.lblUser.Text = lblUser.Text
230 frmHosteler.Reset()
231 frmHosteler.ShowDialog()
232 End Sub
233
234 Private Sub StudentsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles StudentsToolStripMenuItem.Click
235 frmStudentRecord1.Reset()
236 frmStudentRecord1.ShowDialog()
237 End Sub
238
239 Private Sub BusHoldersStudentToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BusHoldersStudentToolStripMenuItem.Click
240 frmBusCardHolder_StudentRecord.Reset()
241 frmBusCardHolder_StudentRecord.ShowDialog()
242 End Sub
243
244 Private Sub HostelersToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HostelersToolStripMenuItem.Click
245 frmHostelerRecord.Reset()
246 frmHostelerRecord.ShowDialog()
247 End Sub
248
249 Private Sub SessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SessionToolStripMenuItem.Click
250 frmSession.lblUser.Text = lblUser.Text
251 frmSession.Reset()
252 frmSession.ShowDialog()
253 End Sub
254
255 Private Sub ClassTransferToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ClassTransferToolStripMenuItem.Click
256 frmClassTransfer.lblUser.Text = lblUser.Text
257 frmClassTransfer.Reset()
258 frmClassTransfer.ShowDialog()
259 End Sub
260
261 Private Sub NoDuesStudentToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NoDuesStudentToolStripMenuItem.Click
262 frmStudentsNoDuesRecord.Reset()
263 frmStudentsNoDuesRecord.ShowDialog()
264 End Sub
265
266 Private Sub NoDuesStaffToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NoDuesStaffToolStripMenuItem.Click
267 frmStaffNoDuesRecord.Reset()
268 frmStaffNoDuesRecord.ShowDialog()
269 End Sub
270
271 Private Sub CardsStudentToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CardsStudentToolStripMenuItem.Click
272 frmStudentsCardRecord.Reset()
273 frmStudentsCardRecord.ShowDialog()
274 End Sub
275
276 Private Sub CardsStaffToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CardsStaffToolStripMenuItem.Click
277 frmStaffCardRecord.Reset()
278 frmStaffCardRecord.ShowDialog()
279 End Sub
280
281 Private Sub ProfileEntryToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles ProfileEntryToolStripMenuItem2.Click
282 frmStaff.lblUser.Text = lblUser.Text
283 frmStaff.Reset()
284 frmStaff.ShowDialog()
285 End Sub
286
287 Private Sub DesignatToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DesignatToolStripMenuItem.Click
288 frmDesignation.lblUser.Text = lblUser.Text
289 frmDesignation.Reset()
290 frmDesignation.ShowDialog()
291 End Sub
292
293 Private Sub StaffsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles StaffsToolStripMenuItem.Click
294 frmStaffRecord1.Reset()
295 frmStaffRecord1.ShowDialog()
296 End Sub
297
298 Private Sub BusInfoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BusInfoToolStripMenuItem.Click
299 frmBusInfo.lblUser.Text = lblUser.Text
300 frmBusInfo.Reset()
301 frmBusInfo.ShowDialog()
302 End Sub
303
304 Private Sub InactiveEntryToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles InactiveEntryToolStripMenuItem.Click
305 frmInactive.lblUser.Text = lblUser.Text
306 frmInactive.Reset()
307 frmInactive.ShowDialog()
308 End Sub
309
310 Private Sub BusHolderToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles BusHolderToolStripMenuItem1.Click
311 frmBusCardHolder_Staff.lblUser.Text = lblUser.Text
312 frmBusCardHolder_Staff.Reset()
313 frmBusCardHolder_Staff.ShowDialog()
314 End Sub
315
316 Private Sub BusHoldersStaffToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BusHoldersStaffToolStripMenuItem.Click
317 frmBusCardHolder_StaffRecord.Reset()
318 frmBusCardHolder_Staff.ShowDialog()
319 End Sub
320
321 Private Sub AdvanceEntryToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles AdvanceEntryToolStripMenuItem1.Click
322 frmAdvanceEntryRecord.Reset()
323 frmAdvanceEntryRecord.ShowDialog()
324 End Sub
325
326 Private Sub CurrentAdvanceToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CurrentAdvanceToolStripMenuItem.Click
327 frmAdvanceEntryRecord1.Reset()
328 frmAdvanceEntryRecord1.ShowDialog()
329 End Sub
330
331 Private Sub StaffAttendance1ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles StaffAttendance1ToolStripMenuItem.Click
332 frmAttendanceEntryRecord.Reset()
333 frmAttendanceEntryRecord.ShowDialog()
334 End Sub
335
336 Private Sub StaffAttendance2ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles StaffAttendance2ToolStripMenuItem.Click
337 frmAttendanceEntryRecord1.Reset()
338 frmAttendanceEntryRecord1.ShowDialog()
339 End Sub
340
341 Private Sub StaffPayment1ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles StaffPayment1ToolStripMenuItem.Click
342 frmStaffPaymentRecord.Reset()
343 frmStaffPaymentRecord.ShowDialog()
344 End Sub
345
346 Private Sub StaffPayment2ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles StaffPayment2ToolStripMenuItem.Click
347 frmStaffPaymentRecord1.Reset()
348 frmStaffPaymentRecord1.ShowDialog()
349 End Sub
350
351 Private Sub AdvanceEntryToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles AdvanceEntryToolStripMenuItem2.Click
352 frmAdvanceEntryReport.Reset()
353 frmAdvanceEntryReport.ShowDialog()
354 End Sub
355
356 Private Sub StaffPaymentToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles StaffPaymentToolStripMenuItem.Click
357 frmStaffPaymentReport.Reset()
358 frmStaffPaymentReport.ShowDialog()
359 End Sub
360
361 Private Sub SalarySlipToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SalarySlipToolStripMenuItem.Click
362 frmSalaryslip.Reset()
363 frmSalaryslip.ShowDialog()
364 End Sub
365
366 Private Sub ExpensesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExpensesToolStripMenuItem.Click
367 frmVoucher.lblUser.Text = lblUser.Text
368 frmVoucher.Reset()
369 frmVoucher.ShowDialog()
370 End Sub
371
372 Private Sub VoucherToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VoucherToolStripMenuItem.Click
373 frmVoucherReport.Reset()
374 frmVoucherReport.ShowDialog()
375 End Sub
376
377 Private Sub CouseFeePaymentToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CouseFeePaymentToolStripMenuItem.Click
378 frmCourseFeePayment.lblUser.Text = lblUser.Text
379 frmCourseFeePayment.Reset()
380 frmCourseFeePayment.ShowDialog()
381 End Sub
382
383 Private Sub SchoolTypeToolStripMenuItem_Click_1(sender As System.Object, e As System.EventArgs) Handles SchoolTypeToolStripMenuItem.Click
384 frmSchoolType.lblUser.Text = lblUser.Text
385 frmSchoolType.Reset()
386 frmSchoolType.ShowDialog()
387 End Sub
388
389 Private Sub PaymentToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles PaymentToolStripMenuItem1.Click
390 frmStaffPayment.lblUser.Text = lblUser.Text
391 frmStaffPayment.Reset()
392 frmStaffPayment.ShowDialog()
393 End Sub
394
395 Private Sub AttendanceToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles AttendanceToolStripMenuItem1.Click
396 frmAttendance.lblUser.Text = lblUser.Text
397 frmAttendance.Reset()
398 frmAttendance.ShowDialog()
399 End Sub
400
401 Private Sub AdvanceEntryToolStripMenuItem3_Click(sender As System.Object, e As System.EventArgs) Handles AdvanceEntryToolStripMenuItem3.Click
402 frmAdvanceEntry.lblUser.Text = lblUser.Text
403 frmAdvanceEntry.Reset()
404 frmAdvanceEntry.ShowDialog()
405 End Sub
406
407 Private Sub NoDuesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NoDuesToolStripMenuItem.Click
408 frmNoDues_Docs.lblUser.Text = lblUser.Text
409 frmNoDues_Docs.Reset()
410 frmNoDues_Docs.ShowDialog()
411 End Sub
412
413 Private Sub CardsToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles CardsToolStripMenuItem2.Click
414 frmCards.lblUser.Text = lblUser.Text
415 frmCards.Reset()
416 frmCards.ShowDialog()
417 End Sub
418
419 Private Sub CourseFeePaymentToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CourseFeePaymentToolStripMenuItem.Click
420 frmCourseFeePaymentRecord.Reset()
421 frmCourseFeePaymentRecord.ShowDialog()
422 End Sub
423
424 Private Sub HostelFeePaymentToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HostelFeePaymentToolStripMenuItem.Click
425 frmHostelFeePayment.lblUser.Text = lblUser.Text
426 frmHostelFeePayment.Reset()
427 frmHostelFeePayment.ShowDialog()
428 End Sub
429
430 Private Sub HostelFeePaymentToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles HostelFeePaymentToolStripMenuItem1.Click
431 frmHostelFeePaymentRecord.Reset()
432 frmHostelFeePaymentRecord.ShowDialog()
433 End Sub
434
435 Private Sub StudentToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles StudentToolStripMenuItem2.Click
436 frmBusFeePayment_Student.lblUser.Text = lblUser.Text
437 frmBusFeePayment_Student.Reset()
438 frmBusFeePayment_Student.ShowDialog()
439 End Sub
440
441 Private Sub frmMain_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
442 e.Cancel = True
443 End Sub
444
445 Private Sub BusFeePaymentStudentToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BusFeePaymentStudentToolStripMenuItem.Click
446 frmBusFeePayment_StudentRecord.Reset()
447 frmBusFeePayment_StudentRecord.ShowDialog()
448 End Sub
449
450 Private Sub StudentsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles StudentsToolStripMenuItem1.Click
451 frmDiscount.lblUser.Text = lblUser.Text
452 frmDiscount.Reset()
453 frmDiscount.ShowDialog()
454 End Sub
455
456 Private Sub StaffsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles StaffsToolStripMenuItem1.Click
457 frmDiscount_Staff.lblUser.Text = lblUser.Text
458 frmDiscount_Staff.Reset()
459 frmDiscount_Staff.ShowDialog()
460 End Sub
461
462 Private Sub HostelFeeReceiptToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HostelFeeReceiptToolStripMenuItem.Click
463 frmHostelFeeReceipt.Reset()
464 frmHostelFeeReceipt.ShowDialog()
465 End Sub
466
467 Private Sub BusFeeReceiptStudentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BusFeeReceiptStudentToolStripMenuItem.Click
468 frmBusFeeReceipt_Student.Reset()
469 frmBusFeeReceipt_Student.ShowDialog()
470 End Sub
471
472 Private Sub FeeStructureToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FeeStructureToolStripMenuItem.Click
473 frmFeeStructure.Reset()
474 frmFeeStructure.ShowDialog()
475 End Sub
476
477 Private Sub CourseFeeReceiptToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CourseFeeReceiptToolStripMenuItem.Click
478 frmClassFeeReceipt.Reset()
479 frmClassFeeReceipt.ShowDialog()
480 End Sub
481
482 Private Sub PartialDueToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PartialDueToolStripMenuItem.Click
483 frmPartialDueList.Reset()
484 frmPartialDueList.ShowDialog()
485 End Sub
486
487 Private Sub FullDueToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FullDueToolStripMenuItem.Click
488 frmFullDueList.Reset()
489 frmFullDueList.ShowDialog()
490 End Sub
491
492 Private Sub StaffToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles StaffToolStripMenuItem1.Click
493 frmBusFeePayment_Staff.lblUser.Text = lblUser.Text
494 frmBusFeePayment_Staff.Reset()
495 frmBusFeePayment_Staff.ShowDialog()
496 End Sub
497
498 Private Sub BusFeePaymentStaffToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BusFeePaymentStaffToolStripMenuItem.Click
499 frmBusFeePayment_StaffRecord.Reset()
500 frmBusFeePayment_StaffRecord.ShowDialog()
501 End Sub
502
503 Private Sub PartialBusFeeDueStaffsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PartialBusFeeDueStaffsToolStripMenuItem.Click
504 frmPartialDueList_Staff.Reset()
505 frmPartialDueList_Staff.ShowDialog()
506 End Sub
507
508 Private Sub BusFeeReceiptStaffsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BusFeeReceiptStaffsToolStripMenuItem.Click
509 frmBusFeeReceipt_Staff.Reset()
510 frmBusFeeReceipt_Staff.ShowDialog()
511 End Sub
512 End Class